home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / growthre.sit / Patient names / background_2573.txt next >
Text File  |  1988-02-06  |  8KB  |  400 lines
  1. -- background: 2573 from stack: in
  2. -- bmap block id: 2113
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. On openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on closeField
  12.   put the short date into field "Date"
  13.   get field "birth date"
  14.   convert it to short date
  15.   put it into field "birth date"
  16. end closeField
  17.  
  18. on setid
  19.   global identification, birthdate, sex
  20.   put field "first name" && field "last name" && field "hospital number" into identification
  21.   put field "birth date" into birthdate
  22.   put field "sex" into sex
  23.   get name of this card
  24.   if it is not empty then
  25.     set name of this card to identification
  26.   end if
  27. end setid
  28.  
  29.  
  30.  
  31.  
  32. -- part 5 (button)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=417 top=250 right=275 bottom=448
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1012 / 1012
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Return
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual effect iris close
  47.   pop card
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 6 (button)
  53. -- low flags: 00
  54. -- high flags: 0000
  55. -- rect: left=275 top=252 right=277 bottom=302
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 1013 / 1013
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Next
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   visual effect wipe left
  67.   go to next card
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 7 (button)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=245 top=252 right=277 bottom=272
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 1014 / 1014
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Prev
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   visual effect wipe right
  87.   go to previous card
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 9 (button)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=386 top=34 right=60 bottom=413
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Do
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   go to card "First Do" of "Datebook"
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 24 (button)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=95 top=225 right=256 bottom=124
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 30696 / 30696
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: 
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   get the selection
  126.   if it is empty then get the message
  127.   if it is empty then ask "Dial what number?"
  128.   if it is not empty then
  129.     push this card
  130.     visual effect zoom open
  131.     go to stack "Phone"
  132.     dial it
  133.     pop card
  134.   end if
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 27 (button)
  140. -- low flags: 00
  141. -- high flags: 0000
  142. -- rect: left=414 top=35 right=59 bottom=447
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 11045 / 11045
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Home
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   visual effect iris close
  154.   go "Home"
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 32 (field)
  160. -- low flags: 00
  161. -- high flags: 4000
  162. -- rect: left=145 top=64 right=80 bottom=266
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 20
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: last name
  171.  
  172.  
  173. -- part 33 (field)
  174. -- low flags: 00
  175. -- high flags: 4000
  176. -- rect: left=269 top=64 right=80 bottom=390
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 0
  180. -- font id: 20
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: first name
  185.  
  186.  
  187. -- part 34 (field)
  188. -- low flags: 00
  189. -- high flags: 4000
  190. -- rect: left=393 top=64 right=80 bottom=410
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 0
  194. -- font id: 20
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: middle initial
  199.  
  200.  
  201. -- part 48 (field)
  202. -- low flags: 00
  203. -- high flags: 4000
  204. -- rect: left=415 top=64 right=80 bottom=443
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 20
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: sex
  213.  
  214.  
  215. -- part 35 (field)
  216. -- low flags: 00
  217. -- high flags: 4000
  218. -- rect: left=150 top=92 right=108 bottom=390
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 0
  222. -- font id: 20
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: street
  227.  
  228.  
  229. -- part 36 (field)
  230. -- low flags: 00
  231. -- high flags: 4000
  232. -- rect: left=150 top=117 right=133 bottom=264
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 0
  236. -- font id: 20
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: city
  241.  
  242.  
  243. -- part 37 (field)
  244. -- low flags: 00
  245. -- high flags: 4000
  246. -- rect: left=269 top=117 right=133 bottom=390
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 20
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: state
  255.  
  256.  
  257. -- part 38 (field)
  258. -- low flags: 00
  259. -- high flags: 4000
  260. -- rect: left=393 top=117 right=133 bottom=447
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 0
  264. -- font id: 20
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: middle initial
  269.  
  270.  
  271. -- part 40 (field)
  272. -- low flags: 00
  273. -- high flags: 4000
  274. -- rect: left=150 top=147 right=163 bottom=248
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 0
  278. -- font id: 20
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: hospital number
  283.  
  284.  
  285. -- part 47 (field)
  286. -- low flags: 00
  287. -- high flags: 4000
  288. -- rect: left=149 top=175 right=191 bottom=248
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 0
  292. -- font id: 20
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: birth date
  297. ----- HyperTalk script -----
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304. -- part 41 (field)
  305. -- low flags: 00
  306. -- high flags: 4007
  307. -- rect: left=251 top=164 right=225 bottom=454
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 0
  311. -- font id: 20
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: diagnosis
  316.  
  317.  
  318. -- part 42 (field)
  319. -- low flags: 00
  320. -- high flags: 4000
  321. -- rect: left=123 top=233 right=249 bottom=221
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 0
  325. -- font id: 20
  326. -- text size: 12
  327. -- style flags: 0
  328. -- line height: 16
  329. -- part name: telephone number
  330.  
  331.  
  332. -- part 43 (button)
  333. -- low flags: 00
  334. -- high flags: A003
  335. -- rect: left=14 top=40 right=58 bottom=82
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: New card
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   domenu New Card
  347.   opencard
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 44 (field)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=347 top=256 right=270 bottom=411
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 0
  359. -- font id: 20
  360. -- text size: 10
  361. -- style flags: 0
  362. -- line height: 13
  363. -- part name: date
  364.  
  365.  
  366. -- part 45 (button)
  367. -- low flags: 00
  368. -- high flags: 2000
  369. -- rect: left=462 top=197 right=233 bottom=502
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: growth records
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   visual effect iris close
  381.   setid
  382.   go "growth records"
  383.  
  384. end mouseUp
  385.  
  386.  
  387.  
  388.  
  389. -- part 49 (button)
  390. -- low flags: 00
  391. -- high flags: 2000
  392. -- rect: left=465 top=164 right=192 bottom=497
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: treatme